'++LotusScript Development Environment:2:5:(Options):0:66

'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button, X As Long, Y As Long, Flags As Long)
Declare Sub FileOpen

'++LotusScript Development Environment:2:5:(Declarations):0:2

'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
	Static Source As BUTTON
	Set Source = Bind(Objectname_)
	On Event Click From Source Call Click
End Sub

'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button, X As Long, Y As Long, Flags As Long)
	Call FileOpen()	
End Sub
'++LotusScript Development Environment:2:2:FileOpen:1:8
Sub FileOpen
	Dim CurDoc As Document
	'Reset the Assistant
	gFlagLoaded = 0
	
	Set CurDoc = CurrentDocument
	'Close the dialog
	Set CurrentWindow.ActiveView = CurrentDocument.Other
	Doevents
	'Show open dialog instead
	CurrentApplication.ApplicationWindow.Domenucommand(IDM_OPEN)
	CurDoc.Activate
	Doevents
	CurrentWindow.visible = False
	Set CurrentWindow.activeview = CurrentDocument.www~ assistant
	'reset error
	Err = 0
End Sub